home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / cmanager_url.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  2KB  |  75 lines
  1. /*
  2. ** $VER: CManager_URL.rexx 1.001 (25.04.99) © Simone Tellini
  3. **
  4. **
  5. **  FUNCTION:
  6. **      Searches URLS in CManager and copies them in GoldED
  7. **
  8. ** $HISTORY:
  9. **
  10. ** 25 Apr 1999 : 001.001 : By Giangi, adapted to GoldED v3 and modified a
  11. **                         bit the output
  12. **
  13. */
  14.  
  15. options results                             /* enable return codes     */
  16.  
  17. if (left(address(), 6) ~= "GOLDED") then    /* not started by GoldEd ? */
  18.  
  19.     address 'GOLDED.1'
  20.  
  21. /* 'LOCK CURRENT RELEASE=4' */                    /* lock GUI, gain access   */
  22. 'LOCK CURRENT'                                    /* lock GUI, gain access   */
  23.  
  24. if (RC ~= 0) then exit
  25.  
  26. options failat 6                            /* ignore warnings         */
  27.  
  28. signal on syntax                            /* ensure clean exit       */
  29.  
  30. /* ---------------------- INSERT YOUR CODE HERE ---------------------- */
  31.  
  32. if ~show("L","rxcmanager.library") then
  33.     if ~addlib("rxcmanager.library",0,-30) then do
  34.        say "no rxcmanager.library"
  35.        exit
  36.     end
  37.  
  38. 'REQUEST STRING TITLE="Enter the pattern to search for:" VAR=K'
  39.  
  40. patt.Name    = k
  41. patt.WWW     = k
  42. patt.Comment = k
  43.  
  44. num = CMFind("USER WWW FTP","REC","PATT",1)
  45.  
  46. if num > 0 then do
  47.  
  48.     do i=0 to num-1
  49.        'TEXT T="'rec.i.Type', "'
  50.  
  51.        if rec.i.Type = 'FTP' then do
  52.           if rec.i.FTP ~= '' then 'TEXT T="ftp://'rec.i.FTP'"'
  53.         end
  54.         else do
  55.           if rec.i.WWW ~= '' then 'TEXT T="'rec.i.WWW'"'
  56.        end
  57.  
  58.        'TEXT T=" ('rec.i.Name')"'
  59.        'CR'
  60.        'FIRST'
  61.     end
  62. end
  63.  
  64. /* ------------------------- END OF YOUR CODE ------------------------ */
  65.  
  66. 'UNLOCK'                                    /* unlock GUI              */
  67.  
  68. exit
  69.  
  70. SYNTAX:
  71.  
  72. SAY "Error in line" SIGL ":" ERRORTEXT(RC)
  73.  
  74. 'UNLOCK'
  75.